perm filename IMACRO.TEX[TEX,DEK] blob
sn#362416 filedate 1978-06-22 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 % Use this for indexes to The Art of Computer Programming
C00005 ENDMK
Cā;
% Use this for indexes to The Art of Computer Programming
\def\\{\par\hangindent 16pt \noindent}
\def\*{\hjust to 8pt{}}
\def\newletter{\par\penalty-300
\vskip 10pt plus 5pt minus 5pt
\hangindent 16pt \noindent}
\def\beginindex{\vsize 240pt \gdef\1{T}\gdef\2{F}
\gdef\3{F}\gdef\4{F}\gdef\lr{T}}
\output{\baselineskip 0pt \lineskip 0pt
\if T\1{\gdef\1{F}\vsize 300pt \hsize 164pt \save1\page}
\else{ % Not the introductory material on the index title page
\if T\lr{\gdef\lr{F}\save0\page}
\else{ % Not the lefthand column of an index page
\gdef\lr{T}
\save3\hjust to 348pt{\box0\hfill\page}
% Now it's time to output a real page:
\if T\4{\save3\vjust to 540pt{\box3\vfill\box2}}\else{}
\vjust to 50pc{ % prepare a full page of this fixed height
\if T\tpage{\gdef\tpage{F}\vskip 24pt\box1\box3
\hjust{}\baselineskip 12pt
\hjust to 348pt{\hfill\:c\cpage\hfill}
} % end of page contents for title page
\else{ % page contents for non-title page
\baselineskip 12pt \hjust{}
\hjust to 348pt{
\ifeven {\hjust to .45 in{\:a\lft{\cpage}}\:mINDEX AND GLOSSARY\hfill}
\else {\hfill\:mINDEX AND GLOSSARY\hjust to .45 in{\:a\rt{\cpage}}}
} % end of headline
\hjust{} % empty line whose baseline is 24pt from top
\box3
} % end of page contents for non-title page
\vfill} % completion of the \vjust
\advcpage
\if T\3{\gdef\3{F}\gdef\2{T}\vsize \lastpagesize}\else{\vsize 540pt}
}}} % end \output routine
\def\endindex#1{
\if T\2{}\else{\par\vfill\eject\vfill\eject}
\if T\lr{\par\vfill\eject}\else{}
\jpar2\chpar2ā25
\save2\hjust to 348pt{#1}
\gdef\4{T}
\par\eject}